home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / Oberon / OberonV4 / KillOberon < prev    next >
Text File  |  1994-07-12  |  234b  |  10 lines
  1. status >env:KillOberon1
  2. search env:KillOberon1 Oberon nonum >env:KillOberon2
  3. if not "$KillOberon2" eq ""
  4.  echo "$KillOberon2" first=9 len=2 >env:KillOberon1
  5.  break $KillOberon1 all
  6. endif
  7. delete env:KillOberon1
  8. delete env:KillOberon2
  9.  
  10.